00100	PUTPROP('LAMBDA,'LAMSTAT,'STAT);
00200	PUTPROP('GO,'GOSTAT,'STAT);
00300	
00400	INTQUOT ARG ←
00500	  BEGIN SCALAR NEWSTAT;
00600		IF ¬VALID(NEWSTAT←INTQUO ARG) THEN
00700			ERREND '(NOT AN INTEGER) ELSE
00800			ADDLINE(NEWSTAT,LIST('INTQUOTE,ARG),NIL);
00900			SHOWCURLINE();
01000	  END;
01100	
01200	INTQUO(ARG)←IF NUMBERP ARG THEN
01300				LIST('EQUAL,ARG,LIST('QUOTE,ARG))
01400		ELSE 'INVALID ;
01500	
01600	FEXPR INTQUOTE ARG ← INTQUOT CAR ARG;
01700	
01800	ISINTEGER ARG ←
01900	  BEGIN SCALAR NEWSTAT;
02000		IF ¬VALID(NEWSTAT←ISINT1 ARG) THEN
02100			ERREND '(NOT AN INTEGER) ELSE
02200			ADDLINE(NEWSTAT,LIST('ISINT,ARG),NIL);
02300			SHOWCURLINE();
02400	  END;
02500	
02600	ISINT1(ARG)←IF NUMBERP ARG THEN
02700				LIST('MEMBER,ARG,'I)
02800		ELSE 'INVALID ;
02900	
03000	FEXPR ISINT ARG ← ISINTEGER CAR ARG;
     

00100	REMPROP('LAMBDA,'STAT);
00200	REMPROP('GO,'STAT);
00300	END;